home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 029a / brodirxy.zip / BROWSALL.INT < prev    next >
Text File  |  1991-02-18  |  3KB  |  42 lines
  1. «lb BROWSALL.INT installs BROWSALL.354 and BROWSALL.PGM. Asks user whether to change the permanent savegets used in the program as originally supplied (100 and 101 come standard) and, for 354 version, whether to add to the list of extensions that prevent attempts to edit files. Rev. 2/18/91. By Jim Franklin, CIS 72136,224»«glSav»
  2. «lbA» ü?«prPgm to edit, w/path? (ESC=quit XC=done)» üA ü?«lbB»«sx20,«rc»»«if«is27»ε«is20»=>0»«pr Quit»«ex»
  3. «ei»«if«is13»ε«is20»=>0!«is20»ε«is23»==0»«glC»
  4. «ei»«if@siz(«is20»)==1&«is20»ε«is60»=>0»«pv20»«glB»
  5. «ei»«if@siz(«is20»)==1&«is20»ε«is61»=>0»«pv20»«glB»
  6. «ei»«if@siz(«is20»)==3&«is20»ε«is58»=>0»«pv20»«glB»
  7. «ei»«glB»
  8. «lbC»«gt02» üexist «pv00» ü    «if«er»==false»«prFile not found» üA üp ü     ü ü?«pv00»«glA»
  9. «ei» üca «pv00» ü     ü¡ üA üse /100/ ü    «gt03» Ç± üse /101/ ü    «gt03» Ç± ü ü?«lbD»«prNew sgt for 100? ESC=quit XC=end» üA ü?«lbE»«sx20,«rc»»«if«is27»ε«is20»=>0» ü«glF»
  10. «ei»«if«is20»ε«is59»=>0»«pv20»«glE»
  11. «ei»«if@siz(«is20»)==3&«is20»ε«is58»=>0»«pv20»«glE»
  12. «ei»«if«is13»ε«is20»=>0!«is20»ε«is23»==0»«glEe»
  13. «ei»«glE»
  14. «lbEe»«gt02»«sx21,«is00»»«if@siz(«is21»)==0»«sx21,0»«prNothing entered»«glF»
  15. «ei»«if@siz(«is21»)<>3!«pv21»<100!«pv21»>999»«prOut of range» üA üp ü     ü? ü«glD»
  16. «ei» ü«lbF»«prNew sgt for 101? ESC=quit XC=end» üA ü?«lbG»«sx20,«rc»»«if«is27»ε«is20»=>0» ü«glH»
  17. «ei»«if«is20»ε«is59»=>0»«pv20»«glG»
  18. «ei»«if«is20»ε«is59»=>0»«pv20»«glG»
  19. «ei»«if@siz(«is20»)==3&«is20»ε«is58»=>0»«pv20»«glG»
  20. «ei»«if«is13»ε«is20»=>0!«is20»ε«is23»==0»«glGg»
  21. «ei»«glG»
  22. «lbGg»«gt02»«sx22,«is00»»«if@siz(«is22»)==0»«sx22,0»«prNothing entered»«glW»
  23. «ei»«if@siz(«is22»)<>3!«pv22»<100!«pv21»>999»«prOut of range» üA üp ü     ü ü?«glF»
  24. «ei»«lbW» ü«if«pv21»<>0&«pv22»<>0&«pv21»==«pv22»»«sv21,»«sv22,»«prNeed different SGTs» üA ü? üp ü     ü«glD»
  25. «ei»«lbH»«prExt. to exclude? ESC=quit XC=end» üA ü?«lbI»«sx20,«rc»»«if«is27»ε«is20»=>0»«glJ»
  26. «ei»«if«is20»ε«is60»=>0»«pv20»«glI»
  27. «ei»«if@siz(«is20»)==3&«is20»ε«is58»=>0»«pv20»«glI»
  28. «ei»«if«is13»ε«is20»=>0!«is20»ε«is23»==0»«glIi»
  29. «ei»«glI»
  30. «lbIi»«gt02»«sx24,@upr(«is00»)»«if@siz(«is24»)<>3»«prEnter 3 letters» üA üp ü     ü ü?«glH»
  31. «ei»«sx26,«is26»+«is25»+«is24»» ü«prEnter another? EXC=quit XC=end» üA üp ü     ü ü?«glH»
  32. «lbJ»«if@siz(«is21»)<>3&@siz(«is22»)<>3&@siz(«is26»)<4» üab ü    «prNo changes made» üA ü?«ex»
  33. «ei»«if@siz(«is21»)==3»«sx50,1» üci /100/«pv21»/ ü    «ei»«if@siz(«is22»)==3»«sx50,2» üci /101/«pv22»/ ü    «ei»«gt01» üst browsall.new ü? ü    «if«er»»«ex»
  34. «ei»«prPGM saved as browsall.new» üA ü?«ex»
  35.  
  36. «lbSav»«sx55,«vanw»»«sx56,«va$ws»»«if«pv55»==0&«pv56»==1»«pr Abort, Store or Open a Window»«ex»
  37. «ei»«su01, üA üse /xs30,61/ ü     Ç±«if«er»»«sx51,1» ü?«prVer. 3.54 code not found» üA üp ü     ü     ü     ü     ü     ü«ei»«if«pv50»==0&«pv51»==1» ü ü?«prNothing to do»«ex1»
  38. «ei»«if«pv51»==1» ü?«prChanging only SGTs 100 & 101» üA üp ü     ü     ü     ü     ü     ü     ü ü?«ex»
  39. «ei» Ç± üse /sv31,/ ü    «gt26» üú»«su02,«sx00,«is00»» üú»«su03,«if«er»» ü?«prUse original copy for changes» üA ü?«ex1»
  40. «ei» üú»«sx50,0»«sx51,0»«su58, Çg ÇU Ç[ Çc ü3 ü5 ü7 ü1 Çw Çy ü! ü# ü+ Ç╧ ü»«sv59,1234567890»«sv60,1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ»«sv61,.\:»«sv13, ü    »«sx21,0»«sx22,0»«sv23,
  41. »«sv24,»«sv25,.»«sv26,»«sv27,» ü«glA»
  42.